home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00516.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  152 b   |  11 lines
  1. on borecheck
  2.   global bore, s
  3.   if bore > 16 then
  4.     set bore to 0
  5.     set s to random(26)
  6.     do("sel" & s & EMPTY)
  7.   else
  8.     nothing()
  9.   end if
  10. end
  11.